home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / H-I / HyperFind2.cpt / HyperFind™ 2.0 / background_2805.txt < prev    next >
Text File  |  1989-02-26  |  22KB  |  882 lines
  1. -- background: 2805 from stack: in.0
  2. -- bmap block id: 2374
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Behind HyperFind™
  6. ----- HyperTalk script -----
  7. on openBackround
  8.   push recent card
  9. end openBackround
  10.  
  11. on opencard
  12.   hide menubar
  13.   put the size of this stack into background field "StackSize"
  14.   put the freesize of this stack into background field "Wasted"
  15. end opencard
  16.  
  17. on idle
  18.   if background field "DATE" is not the Long Date
  19.   then put the Long Date into background field "Date"
  20. end idle
  21.  
  22. on domenu which
  23.   if which is "Delete Card" or which is "Cut card" or which is "Copy Card" or which is "New Card" then
  24.     beep 3
  25.     answer "There is no need to do this!"
  26.     exit domenu
  27.   end if
  28.   if which is "Protect Stack..." then
  29.     beep 3
  30.     answer "You don't want to do that!"
  31.     exit domenu
  32.   end if
  33.   if which is "Delete Stack..." then
  34.     beep 3
  35.     answer "You really don't want to do that!"
  36.     exit domenu
  37.   end if
  38.   pass domenu
  39. end domenu
  40.  
  41. on domenu which
  42.   if which is "Cut Button" or which is "Clear Button"
  43.   then
  44.   UpdateResfork,ICON,id
  45.   exit domenu
  46. end if
  47. pass domenu
  48. end domenu
  49.  
  50.  
  51.  
  52.  
  53. -- part 1 (button)
  54. -- low flags: 00
  55. -- high flags: 0000
  56. -- rect: left=31 top=47 right=76 bottom=63
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 20098 / 20098
  59. -- text alignment: 1
  60. -- font id: 0
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: Go Home
  65. ----- HyperTalk script -----
  66. on mouseUp
  67.   go home
  68. end mouseUp
  69.  
  70.  
  71.  
  72. -- part 2 (button)
  73. -- low flags: 00
  74. -- high flags: 2000
  75. -- rect: left=447 top=44 right=79 bottom=477
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 1006 / 1006
  78. -- text alignment: 1
  79. -- font id: 0
  80. -- text size: 12
  81. -- style flags: 0
  82. -- line height: 16
  83. -- part name: Quit
  84. ----- HyperTalk script -----
  85. on mouseUp
  86.   Play "Boing" 30
  87.   answer "Do you really want to stop HyperCard?" with "Okay" or "Heck No !"
  88.   if it is "Heck No !" then exit mouseUp
  89.   doMenu "Quit HyperCard"
  90. end mouseUp
  91.  
  92.  
  93.  
  94. -- part 3 (button)
  95. -- low flags: 00
  96. -- high flags: 2000
  97. -- rect: left=277 top=43 right=81 bottom=318
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 23022 / 23022
  100. -- text alignment: 1
  101. -- font id: 0
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: Transfer
  106. ----- HyperTalk script -----
  107. on mouseUp
  108.   flash 2
  109.   play "boing" tempo 200 "c4e c dq c e# eh"
  110.   answer"Launch separate application directly." with "Okay!" or "Cancel"
  111.   if it is "Cancel" then exit mouseUp
  112.   global theFile
  113.   put FileName("APPL") into theFile
  114.   if theFile is not empty then
  115.     open theFile
  116.   end if
  117. end mouseUp
  118.  
  119.  
  120.  
  121. -- part 4 (button)
  122. -- low flags: 00
  123. -- high flags: 2000
  124. -- rect: left=197 top=43 right=81 bottom=234
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 17343 / 17343
  127. -- text alignment: 1
  128. -- font id: 0
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: Add Application
  133. ----- HyperTalk script -----
  134. function buttonName fullName
  135. put the length of fullName into lastChar
  136. repeat with i = lastChar down to 1
  137.   if char i of fullName = ":" then exit repeat
  138. end repeat
  139. return char (i + 1) to lastChar of fullName
  140. end buttonName
  141.  
  142. on mouseUp
  143.   flash 2
  144.   play "harpsichord" tempo 800 "ch d e f g a b c5w"
  145.   answer "Find an application to load into HyperFind‚Ñ¢." with "Okay!" or "Cancel"
  146.   if it is "Cancel" then exit mouseUp
  147.   put fileName("APPL","Choose an application") into appFile
  148.   if appFile = empty then exit mouseUp
  149.   set cursor to 5
  150.   put buttonName(appFile) into appName
  151.   put GetAppIcon(appFile,appName) into iconNo
  152.   if iconNo = "0" then exit mouseUp
  153.   doMenu "New Button"
  154.   hide button "New Button"
  155.   set name of button "New Button" to appName
  156.   set icon of button appName to iconNo
  157.   set style of button appName to transparent
  158.   set rect of button appName to 150,150,225,200
  159.   -- now construct script for your new button
  160.   put "on mouseUp" & return into buttonScript
  161.   put "open " & quote & appFIle & quote & return after buttonScript
  162.   put "end mouseUp" & return after buttonScript
  163.   set script of button appName to buttonScript
  164.   show button appName
  165.   show menubar
  166. end mouseUp
  167.  
  168.  
  169.  
  170. -- part 5 (button)
  171. -- low flags: 00
  172. -- high flags: 2000
  173. -- rect: left=240 top=43 right=81 bottom=270
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 1004 / 1004
  176. -- text alignment: 1
  177. -- font id: 0
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: Add Document
  182. ----- HyperTalk script -----
  183. function buttonName fullName
  184. put the length of fullName into lastChar
  185. repeat with i = lastChar down to 1
  186.   if char i of fullName = ":" then exit repeat
  187. end repeat
  188. return char (i + 1) to lastChar of fullName
  189. end buttonName
  190.  
  191. on mouseUp
  192.   flash 2
  193.   play "harpsichord" tempo 1000 "c5w b a g f e d ch"
  194.   answer "Find application then load related document." with "Okay!" or "Cancel"
  195.   if it is "Cancel" then exit mouseUp
  196.   put fileName("APPL") into appFile
  197.   if appFile = empty then exit mouseUp
  198.   put fileName() into docFile
  199.   if docFile = empty then exit mouseUp
  200.   set cursor to 5
  201.   put buttonName(docFile) into docName
  202.   put GetDocIcon(appFile,docFile) into iconNo
  203.   if iconNo = "0" then exit mouseUp
  204.   doMenu "New Button"
  205.   hide button "New Button"
  206.   set name of button "New Button" to docName
  207.   set icon of button docName to iconNo
  208.   set style of button docName to transparent
  209.   set rect of button docName to 150,150,225,200
  210.   -- now construct script for the new button
  211.   put "on mouseUp" & return into buttonScript
  212.   put "open " & quote & docFIle & quote & " with " & quote & appfile & quote & return after buttonScript
  213.   put "end mouseUp" & return after buttonScript
  214.   set script of button docName to buttonScript
  215.   show button docName
  216.   show menubar
  217. end mouseUp
  218.  
  219.  
  220.  
  221. -- part 26 (button)
  222. -- low flags: 00
  223. -- high flags: 2000
  224. -- rect: left=68 top=45 right=79 bottom=107
  225. -- title width / last selected line: 0
  226. -- icon id / first selected line: 32670 / 32670
  227. -- text alignment: 1
  228. -- font id: 0
  229. -- text size: 12
  230. -- style flags: 0
  231. -- line height: 16
  232. -- part name: 
  233. ----- HyperTalk script -----
  234. on mouseUp
  235.   show all cards
  236. end mouseUp
  237.  
  238.  
  239.  
  240. -- part 28 (field)
  241. -- low flags: 01
  242. -- high flags: 2007
  243. -- rect: left=294 top=97 right=275 bottom=473
  244. -- title width / last selected line: 0
  245. -- icon id / first selected line: 0 / 0
  246. -- text alignment: 0
  247. -- font id: 3
  248. -- text size: 9
  249. -- style flags: 0
  250. -- line height: 12
  251. -- part name: Data4one
  252.  
  253.  
  254. -- part 29 (button)
  255. -- low flags: 00
  256. -- high flags: A000
  257. -- rect: left=264 top=283 right=304 bottom=431
  258. -- title width / last selected line: 0
  259. -- icon id / first selected line: 0 / 0
  260. -- text alignment: 1
  261. -- font id: 0
  262. -- text size: 12
  263. -- style flags: 0
  264. -- line height: 16
  265. -- part name: ∞  HyperFind™ v2.0  ∞
  266. ----- HyperTalk script -----
  267. on mouseUp
  268.   Answer "You are already here!" with "Okay!"
  269. end mouseUp
  270.  
  271.  
  272.  
  273.  
  274. -- part 34 (field)
  275. -- low flags: 00
  276. -- high flags: 0004
  277. -- rect: left=116 top=47 right=64 bottom=188
  278. -- title width / last selected line: 0
  279. -- icon id / first selected line: 0 / 0
  280. -- text alignment: 1
  281. -- font id: 3
  282. -- text size: 10
  283. -- style flags: 0
  284. -- line height: 13
  285. -- part name: today's time
  286. ----- HyperTalk script -----
  287. on idle
  288.   put the time into line 1 of field "today's time"
  289.   pass idle
  290. end idle
  291.  
  292.  
  293. -- part 38 (button)
  294. -- low flags: 00
  295. -- high flags: 0001
  296. -- rect: left=117 top=48 right=61 bottom=184
  297. -- title width / last selected line: 0
  298. -- icon id / first selected line: 0 / 0
  299. -- text alignment: 1
  300. -- font id: 0
  301. -- text size: 12
  302. -- style flags: 0
  303. -- line height: 16
  304. -- part name: time
  305.  
  306.  
  307. -- part 36 (button)
  308. -- low flags: 00
  309. -- high flags: 2000
  310. -- rect: left=447 top=289 right=317 bottom=477
  311. -- title width / last selected line: 0
  312. -- icon id / first selected line: 32462 / 32462
  313. -- text alignment: 1
  314. -- font id: 0
  315. -- text size: 12
  316. -- style flags: 0
  317. -- line height: 16
  318. -- part name: Help
  319. ----- HyperTalk script -----
  320. on mouseUp
  321.   beep 3
  322.   answer "THIS BUTTON DEMANDS THE HELP STACK." with "Stop" or "Continue"
  323.   if it is "Stop" then exit mouseUp
  324.   Help
  325. end mouseUp
  326.  
  327.  
  328. -- part 43 (button)
  329. -- low flags: 00
  330. -- high flags: 8000
  331. -- rect: left=129 top=281 right=326 bottom=181
  332. -- title width / last selected line: 0
  333. -- icon id / first selected line: 1015 / 1015
  334. -- text alignment: 1
  335. -- font id: 0
  336. -- text size: 12
  337. -- style flags: 0
  338. -- line height: 16
  339. -- part name: Next Card
  340. ----- HyperTalk script -----
  341. on mouseUp
  342.   visual effect zoom open
  343.   go to next card
  344. end mouseUp
  345.  
  346.  
  347. -- part 47 (field)
  348. -- low flags: 01
  349. -- high flags: 0000
  350. -- rect: left=258 top=305 right=323 bottom=439
  351. -- title width / last selected line: 0
  352. -- icon id / first selected line: 0 / 0
  353. -- text alignment: 1
  354. -- font id: 3
  355. -- text size: 10
  356. -- style flags: 0
  357. -- line height: 13
  358. -- part name: Date
  359.  
  360.  
  361. -- part 48 (button)
  362. -- low flags: 00
  363. -- high flags: 0000
  364. -- rect: left=255 top=303 right=322 bottom=442
  365. -- title width / last selected line: 0
  366. -- icon id / first selected line: 0 / 0
  367. -- text alignment: 1
  368. -- font id: 0
  369. -- text size: 12
  370. -- style flags: 0
  371. -- line height: 16
  372. -- part name: New Button
  373. ----- HyperTalk script -----
  374. on mouseUp
  375.   play boing fast boing fast boing fast
  376.   Answer "This day isn't over yet!" with "Okay !"
  377. end mouseUp
  378.  
  379.  
  380.  
  381. -- part 49 (button)
  382. -- low flags: 00
  383. -- high flags: 0000
  384. -- rect: left=255 top=277 right=304 bottom=442
  385. -- title width / last selected line: 0
  386. -- icon id / first selected line: 0 / 0
  387. -- text alignment: 1
  388. -- font id: 0
  389. -- text size: 12
  390. -- style flags: 0
  391. -- line height: 16
  392. -- part name: HyperFind Surprise
  393. ----- HyperTalk script -----
  394. on mouseUp
  395.   play "Boing"
  396.   answer "HyperFind‚Ñ¢ ‚Äî the HyperCard Finder!" with " Continue"
  397. end mouseUp
  398.  
  399.  
  400.  
  401. -- part 50 (button)
  402. -- low flags: 00
  403. -- high flags: 0000
  404. -- rect: left=33 top=283 right=305 bottom=58
  405. -- title width / last selected line: 0
  406. -- icon id / first selected line: 24317 / 24317
  407. -- text alignment: 1
  408. -- font id: 0
  409. -- text size: 12
  410. -- style flags: 0
  411. -- line height: 16
  412. -- part name: First
  413. ----- HyperTalk script -----
  414. on mouseUp
  415.   go to first card
  416. end mouseUp
  417.  
  418.  
  419.  
  420. -- part 51 (button)
  421. -- low flags: 00
  422. -- high flags: 0000
  423. -- rect: left=35 top=306 right=327 bottom=58
  424. -- title width / last selected line: 0
  425. -- icon id / first selected line: 15420 / 15420
  426. -- text alignment: 1
  427. -- font id: 0
  428. -- text size: 12
  429. -- style flags: 0
  430. -- line height: 16
  431. -- part name: Previous
  432. ----- HyperTalk script -----
  433. on mouseUp
  434.   go to previous card
  435. end mouseUp
  436.  
  437.  
  438. -- part 57 (button)
  439. -- low flags: 00
  440. -- high flags: 0000
  441. -- rect: left=115 top=46 right=78 bottom=189
  442. -- title width / last selected line: 0
  443. -- icon id / first selected line: 18086 / 18086
  444. -- text alignment: 1
  445. -- font id: 0
  446. -- text size: 12
  447. -- style flags: 0
  448. -- line height: 16
  449. -- part name: Time button
  450. ----- HyperTalk script -----
  451.  
  452. on mouseUp
  453.   put the time into line 1 of field "today's time"
  454.   show background button id 38
  455. end mouseUp
  456. on mouseDown
  457.   hide background button id 38
  458. end mouseDown
  459.  
  460.  
  461.  
  462.  
  463.  
  464. -- part 62 (button)
  465. -- low flags: 00
  466. -- high flags: 8000
  467. -- rect: left=0 top=328 right=342 bottom=512
  468. -- title width / last selected line: 0
  469. -- icon id / first selected line: 0 / 0
  470. -- text alignment: 1
  471. -- font id: 0
  472. -- text size: 12
  473. -- style flags: 0
  474. -- line height: 16
  475. -- part name: HyperFind™ 2.0 PopUp Launcher - April 9, 1988 - $10.00 STACKWARE FEE
  476. ----- HyperTalk script -----
  477. on mousedown
  478.   set cursor to 5
  479.   push card
  480.   visual dissolve to gray
  481.   visual dissolve
  482.   put the mouseloc into menuLoc
  483.   put item 1 of menuLoc - -10 into horiz
  484.   put item 2 of menuLoc - 260 into vert
  485.   get PopUpMenu("WriteNow;MacWrite;RedWriter‚Ñ¢ 4.3.4;"& "MORE;Microsoft Word;(-;MacDraw 1.9.5;Cricket Draw;"& "MacPaint;SuperPaint;Canvas;Adobe Illustrator;"& "(-;MacCalc;Excel;(-;Double Helix;Omnis 3 Plus;"& "(-;Red Ryder 10.3;MicroPhone;"& "(-;StuffIt 1.31;PackIt III;"& "(-;Open Other;", 0, vert, horiz)
  486.   put it into choice
  487.   set hilite of target to false
  488.   if choice = "0" then exit mousedown
  489.  
  490.   if choice = "1" then open "WriteNow"
  491.  
  492.   if choice = "2" then open "MacWrite"
  493.  
  494.   -- this one activates the "MockWrite" DA.Any DA can be used like this.
  495.   -- useful for Stacks w/ no menubar
  496.  
  497.   if choice = "3" then doMenu "RedWriter‚Ñ¢ 4.3.4"
  498.  
  499.   if choice = "4" then open "MORE"
  500.  
  501.   if choice = "5" then open "Microsoft Word"
  502.  
  503.   if choice = "7" then open "MacDraw 1.9.5"
  504.  
  505.   if choice = "8" then open "Cricket Draw"
  506.  
  507.   if choice = "9" then open "MacPaint"
  508.  
  509.   if choice = "10" then open "SuperPaint"
  510.  
  511.   if choice = "11" then open "Canvas"
  512.  
  513.   if choice = "12" then open "Adobe Illustrator"
  514.  
  515.   if choice = "14" then open "MacCalc"
  516.  
  517.   if choice = "15" then open "Excel"
  518.  
  519.   if choice = "17" then open "Double Helix II"
  520.  
  521.   if choice = "18" then open "Ominus 3 Plus"
  522.  
  523.   if choice = "20" then open "Red Ryder 10.3"
  524.  
  525.   if choice = "21" then open "Microphone"
  526.  
  527.   if choice = "23" then open "StuffIt 1.31"
  528.  
  529.   if choice = "24" then open "PackIt III"
  530.  
  531.   if choice = "26" then
  532.     global theFile
  533.     put FileName("APPL") into theFile
  534.     if theFile is not empty then
  535.       visual effect dissolve
  536.       open theFile
  537.     end if
  538.   end if
  539.  
  540.  
  541. end mousedown
  542.  
  543.  
  544.  
  545.  
  546. -- part 65 (button)
  547. -- low flags: 00
  548. -- high flags: 0000
  549. -- rect: left=0 top=279 right=331 bottom=27
  550. -- title width / last selected line: 0
  551. -- icon id / first selected line: 0 / 0
  552. -- text alignment: 1
  553. -- font id: 0
  554. -- text size: 12
  555. -- style flags: 0
  556. -- line height: 16
  557. -- part name: HyperFind™ PopUpMenu Launcher; January 9,1988 by Frederick M. McConnell
  558. ----- HyperTalk script -----
  559. on mousedown
  560.   set cursor to 5
  561.   push card
  562.   visual dissolve to gray
  563.   visual dissolve
  564.   put the mouseloc into menuLoc
  565.   put item 1 of menuLoc - -10 into horiz
  566.   put item 2 of menuLoc - 260 into vert
  567.   get PopUpMenu("WriteNow;MacWrite;RedWriter‚Ñ¢ 4.3.4;"& "MORE;Microsoft Word;(-;MacDraw 1.9;Cricket Draw;"& "MacPaint;SuperPaint;Canvas;Adobe Illustrator;"& "(-;MacCalc;Excel;(-;Double Helix;Omnis 3 Plus;"& "(-;Red Ryder 10.3;MicroPhone;"& "(-;StuffIt 1.30;PackIt III;"& "(-;Open Other;", 0, vert, horiz)
  568.   put it into choice
  569.   set hilite of target to false
  570.   if choice = "0" then exit mousedown
  571.  
  572.   if choice = "1" then open "WriteNow"
  573.  
  574.   if choice = "2" then open "MacWrite"
  575.  
  576.  
  577.   -- this one activates the "MockWrite" DA.Any DA can be used like this.
  578.   -- useful for Stacks w/ no menubar
  579.   if choice = "3" then doMenu "RedWriter‚Ñ¢ 4.3.4"
  580.  
  581.   if choice = "4" then open "MORE"
  582.  
  583.   if choice = "5" then open "Microsoft Word"
  584.  
  585.   if choice = "7" then open "MacDraw 1.9"
  586.  
  587.   if choice = "8" then open "Cricket Draw"
  588.  
  589.   if choice = "9" then open "MacPaint"
  590.  
  591.   if choice = "10" then open "SuperPaint"
  592.  
  593.   if choice = "11" then open "Canvas"
  594.  
  595.   if choice = "12" then open "Adobe Illustrator"
  596.  
  597.   if choice = "14" then open "MacCalc"
  598.  
  599.   if choice = "15" then open "Excel"
  600.  
  601.   if choice = "17" then open "Double Helix II"
  602.  
  603.   if choice = "18" then open "Ominus 3 Plus"
  604.  
  605.   if choice = "20" then open "Red Ryder 10.3"
  606.  
  607.   if choice = "21" then open "Microphone"
  608.  
  609.   if choice = "23" then open "StuffIt 1.30"
  610.  
  611.   if choice = "24" then open "PackIt III"
  612.  
  613.   if choice = "26" then
  614.     global theFile
  615.     put FileName("APPL") into theFile
  616.     if theFile is not empty then
  617.       visual effect dissolve
  618.       open theFile
  619.     end if
  620.   end if
  621.  
  622.  
  623. end mousedown
  624.  
  625.  
  626.  
  627.  
  628. -- part 68 (button)
  629. -- low flags: 00
  630. -- high flags: 2000
  631. -- rect: left=208 top=281 right=315 bottom=242
  632. -- title width / last selected line: 0
  633. -- icon id / first selected line: 1000 / 1000
  634. -- text alignment: 1
  635. -- font id: 0
  636. -- text size: 12
  637. -- style flags: 0
  638. -- line height: 16
  639. -- part name: Open Stack
  640. ----- HyperTalk script -----
  641. on mouseUp
  642.  
  643. end mouseUp
  644.  
  645.  
  646.  
  647. -- part 71 (button)
  648. -- low flags: 00
  649. -- high flags: 0000
  650. -- rect: left=207 top=281 right=315 bottom=241
  651. -- title width / last selected line: 0
  652. -- icon id / first selected line: 0 / 0
  653. -- text alignment: 1
  654. -- font id: 0
  655. -- text size: 12
  656. -- style flags: 0
  657. -- line height: 16
  658. -- part name: Stack Only PopUp Menu
  659. ----- HyperTalk script -----
  660. on mousedown
  661.   set cursor to 5
  662.   push card
  663.   visual dissolve to white
  664.   visual dissolve fast to gray
  665.   visual dissolve fast to white
  666.   visual dissolve
  667.   put the mouseloc into menuLoc
  668.   put item 1 of menuLoc - -20 into horiz
  669.   put item 2 of menuLoc - 260 into vert
  670.   get PopUpMenu("Art Ideas;Button Ideas;Card Ideas;Stack Ideas;"& "Clip Art;(-;Help;Help Index;Help Samples;(-;"& "Area Codes;Address;Datebook;File Index;Phone;"& "Quotations;HyperCalc;Bookshelf;Documents;Slideshow;Plots;"& "(-;Home/H;(-;Open Stack/O", 0, vert, horiz)
  671.   put it into choice
  672.   set hilite of target to false
  673.   if choice = "0" then exit mousedown
  674.   if choice = "1" then open "Art Ideas"
  675.   if choice = "2" then open "Button Ideas"
  676.   if choice = "3" then open "Card Ideas"
  677.   if choice = "4" then open "Stack Ideas"
  678.   if choice = "5" then open "Clip Art"
  679.   if choice = "7" then open "Help"
  680.   if choice = "8" then open "Help Index"
  681.   if choice = "9" then open "Help Samples"
  682.   if choice = "11" then open "Area Codes"
  683.   if choice = "12" then open "Address"
  684.   if choice = "13" then open "Datebook"
  685.   if choice = "14" then open "File Index"
  686.   if choice = "15" then open "Phone"
  687.   if choice = "16" then open "Quotations"
  688.   if choice = "18" then open "HyperCalc"
  689.   if choice = "19" then open "Bookshelf"
  690.   if choice = "20" then open "Documents"
  691.   if choice = "21" then open "Slideshow"
  692.   if choice = "22" then open "Plots"
  693.   if choice = "23" then doMenu "Home"
  694.   if choice = "25" then doMenu "Open Stack..."
  695. end mousedown
  696.  
  697.  
  698.  
  699. -- part 78 (field)
  700. -- low flags: 01
  701. -- high flags: 0004
  702. -- rect: left=324 top=65 right=79 bottom=400
  703. -- title width / last selected line: 0
  704. -- icon id / first selected line: 0 / 0
  705. -- text alignment: 1
  706. -- font id: 3
  707. -- text size: 9
  708. -- style flags: 256
  709. -- line height: 12
  710. -- part name: Size Field #2
  711. ----- HyperTalk script -----
  712. on mouseup
  713.   if the optionkey is down then pass mouseup
  714.   if the freesize of this stack is 0 then exit mouseup
  715.   domenu "compact stack"
  716.   put the size of this stack into background field "StackSize"
  717.   put the freesize of this stack into background field "Wasted"
  718. end mouseup
  719.  
  720.  
  721.  
  722. -- part 79 (field)
  723. -- low flags: 01
  724. -- high flags: 0004
  725. -- rect: left=324 top=44 right=58 bottom=400
  726. -- title width / last selected line: 0
  727. -- icon id / first selected line: 0 / 0
  728. -- text alignment: 1
  729. -- font id: 3
  730. -- text size: 9
  731. -- style flags: 256
  732. -- line height: 12
  733. -- part name: Size Field #1
  734. ----- HyperTalk script -----
  735. on mouseup
  736.   if the optionkey is down then pass mouseup
  737.   put the size of this stack into background field "StackSize"
  738.   put the freesize of this stack into background field "Wasted"
  739. end mouseup
  740.  
  741.  
  742.  
  743. -- part 82 (button)
  744. -- low flags: 00
  745. -- high flags: 0000
  746. -- rect: left=0 top=35 right=280 bottom=27
  747. -- title width / last selected line: 0
  748. -- icon id / first selected line: 0 / 0
  749. -- text alignment: 1
  750. -- font id: 0
  751. -- text size: 12
  752. -- style flags: 0
  753. -- line height: 16
  754. -- part name: menus on
  755. ----- HyperTalk script -----
  756. on mouseUp
  757.   if the optionkey is down then pass mouseup
  758.  
  759.   if the short name of the target is "Menus On" then
  760.     show menubar
  761.     set name of target to "menus off"
  762.   else
  763.     hide menubar
  764.     set name of target to "menus on"
  765.     if the short name of the target is "Menus Off" then
  766.       hide menu bar
  767.       set name of target to "menus on"
  768.     end if
  769.   end if
  770. end mouseUp
  771.  
  772.  
  773.  
  774. -- part 83 (field)
  775. -- low flags: 01
  776. -- high flags: 0000
  777. -- rect: left=400 top=44 right=58 bottom=444
  778. -- title width / last selected line: 0
  779. -- icon id / first selected line: 0 / 0
  780. -- text alignment: 1
  781. -- font id: 3
  782. -- text size: 9
  783. -- style flags: 0
  784. -- line height: 12
  785. -- part name: StackSize
  786.  
  787.  
  788. -- part 84 (field)
  789. -- low flags: 01
  790. -- high flags: 0000
  791. -- rect: left=400 top=65 right=79 bottom=444
  792. -- title width / last selected line: 0
  793. -- icon id / first selected line: 0 / 0
  794. -- text alignment: 1
  795. -- font id: 3
  796. -- text size: 9
  797. -- style flags: 0
  798. -- line height: 12
  799. -- part name: Wasted
  800.  
  801.  
  802. -- part 89 (button)
  803. -- low flags: 00
  804. -- high flags: 8003
  805. -- rect: left=0 top=4 right=29 bottom=512
  806. -- title width / last selected line: 0
  807. -- icon id / first selected line: 0 / 0
  808. -- text alignment: 1
  809. -- font id: 0
  810. -- text size: 12
  811. -- style flags: 0
  812. -- line height: 16
  813. -- part name: HyperFind™ 2.0  PopUp  Launcher by Frederick M. McConnell
  814. ----- HyperTalk script -----
  815. on mousedown
  816.   set cursor to 5
  817.   push card
  818.   visual dissolve to gray
  819.   visual dissolve
  820.   put the mouseloc into menuLoc
  821.   put item 1 of menuLoc - -20 into horiz
  822.   put item 2 of menuLoc - 2 into vert
  823.   get PopUpMenu("WriteNow;MacWrite;miniWRITER;"& "MORE;Microsoft Word;(-;MacDraw 1.9.5;Cricket Draw;"& "MacPaint;SuperPaint;Canvas;Adobe Illustrator;"& "(-;MacCalc;Excel;(-;Double Helix;Omnis 3 Plus;"& "(-;Red Ryder 10.3;MicroPhone;"& "(-;StuffIt 1.31;PackIt III;"& "(-;Open Other;",0, vert, horiz)
  824.   put it into choice
  825.   set hilite of target to false
  826.   if choice = "0" then exit mousedown
  827.  
  828.   if choice = "1" then open "WriteNow"
  829.  
  830.   if choice = "2" then open "MacWrite"
  831.  
  832.   -- this one activates the "MockWrite" DA.Any DA can be used like this.
  833.   -- useful for Stacks w/ no menubar
  834.  
  835.   if choice = "3" then doMenu "miniWRITER"
  836.  
  837.   if choice = "4" then open "MORE"
  838.  
  839.   if choice = "5" then open "Microsoft Word"
  840.  
  841.   if choice = "7" then open "MacDraw 1.9.5"
  842.  
  843.   if choice = "8" then open "Cricket Draw"
  844.  
  845.   if choice = "9" then open "MacPaint"
  846.  
  847.   if choice = "10" then open "SuperPaint"
  848.  
  849.   if choice = "11" then open "Canvas"
  850.  
  851.   if choice = "12" then open "Adobe Illustrator"
  852.  
  853.   if choice = "14" then open "MacCalc"
  854.  
  855.   if choice = "15" then open "Excel"
  856.  
  857.   if choice = "17" then open "Double Helix II"
  858.  
  859.   if choice = "18" then open "Ominus 3 Plus"
  860.  
  861.   if choice = "20" then open "Red Ryder 10.3"
  862.  
  863.   if choice = "21" then open "Microphone"
  864.  
  865.   if choice = "23" then open "StuffIt 1.31"
  866.  
  867.   if choice = "24" then open "PackIt III"
  868.  
  869.   if choice = "26" then
  870.     global theFile
  871.     put FileName("APPL") into theFile
  872.     if theFile is not empty then
  873.       visual effect dissolve
  874.       open theFile
  875.     end if
  876.   end if
  877.  
  878.  
  879. end mousedown
  880.  
  881.  
  882.